Last update: 2022-03-30 … Source: India fuel dashboard - github

Delhi

Row

Today’s Petrol price

valueBox(petrol_latest$Delhi,icon = "fa-gas-pump")

101.01

Today’s Diesel price

valueBox(diesel_latest$Delhi,icon = "fa-gas-pump",color = "success")

92.27

Row

Petrol Price

Petrol$Date <- as.Date(Petrol$Date)



Pd <- ggplot(Petrol, aes(x = Date, y = Delhi)) +            # Draw ggplot2 plot
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  ylab("Price")+
  ggtitle("Surging Petrol price in Delhi")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Pd

Diesel price

Diesel$Date <- as.Date(Diesel$Date)


Dd <- ggplot(Diesel, aes(x = Date, y = Delhi)) +            # Draw ggplot2 plot
  geom_area( fill="#FFA500", alpha=0.4) +
  geom_line(color="#FFA500", size=2) +
  ylab("Price")+
  ggtitle("Surging Diesel price in Delhi")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Dd

Mumbai

Row

Today’s Petrol price

valueBox(petrol_latest$Mumbai,icon = "fa-gas-pump")

115.88

Today’s Diesel price

valueBox(diesel_latest$Mumbai,icon = "fa-gas-pump",color = "success")

100.1

Row

Petrol Price

Petrol$Date <- as.Date(Petrol$Date)

Mp <- ggplot(Petrol, aes(x = Date, y = Mumbai)) +            # Draw ggplot2 plot
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  ylab("Price")+
  ggtitle("Surging Petrol price in Mumbai")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Mp

Diesel price

Diesel$Date <- as.Date(Diesel$Date)

Md <- ggplot(Diesel, aes(x = Date, y = Mumbai)) +            # Draw ggplot2 plot
  geom_area( fill="#FFA500", alpha=0.4) +
  geom_line(color="#FFA500", size=2) +
  ylab("Price")+
  ggtitle("Surging Diesel price in Mumbai")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Md

Chennai

Row

Today’s Petrol price

valueBox(petrol_latest$Chennai,icon = "fa-gas-pump")

106.69

Today’s Diesel price

valueBox(diesel_latest$Chennai,icon = "fa-gas-pump",color = "success")

96.76

Row

Petrol Price

Petrol$Date <- as.Date(Petrol$Date)

Cp <- ggplot(Petrol, aes(x = Date, y = Chennai)) +            # Draw ggplot2 plot
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  ylab("Price")+
  ggtitle("Surging Petrol price in Chennai")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Cp

Diesel price

Diesel$Date <- as.Date(Diesel$Date)

Cd <- ggplot(Diesel, aes(x = Date, y = Chennai)) +            # Draw ggplot2 plot
  geom_area( fill="#FFA500", alpha=0.4) +
  geom_line(color="#FFA500", size=2) +
  ylab("Price")+
  ggtitle("Surging Diesel price in Chennai")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Cd

Kolkata

Row

Today’s Petrol price

valueBox(petrol_latest$Kolkata,icon = "fa-gas-pump")

110.52

Today’s Diesel price

valueBox(diesel_latest$Kolkata,icon = "fa-gas-pump",color = "success")

95.42

Row

Petrol Price

Petrol$Date <- as.Date(Petrol$Date)

Kp <- ggplot(Petrol, aes(x = Date, y = Kolkata)) +            # Draw ggplot2 plot
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  ylab("Price")+
  ggtitle("Surging Petrol price in Kolkata")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Kp

Diesel price

Diesel$Date <- as.Date(Diesel$Date)

Kd <- ggplot(Diesel, aes(x = Date, y = Kolkata)) +            # Draw ggplot2 plot
  geom_area( fill="#FFA500", alpha=0.4) +
  geom_line(color="#FFA500", size=2) +
  ylab("Price")+
  ggtitle("Surging Diesel price in Kolkata")+
  scale_x_date(date_labels = "%Y-%m")+
  theme_minimal()
  
Kd